﻿Imports Pronama.Sekatyaku.Model

Namespace ViewModel

    Public Class BroadcastCommentViewModel
        Inherits ViewModelBase

        Private Model As BroadcastComment

        Public Sub New(ByVal model As BroadcastComment)
            Me.Model = model
        End Sub

        Public Function ToModel() As BroadcastComment
            Return Model
        End Function

        Public Property Kind() As BroadcastCommentKind
            Get
                Return Model.Kind
            End Get
            Set(ByVal value As BroadcastCommentKind)
                Model.Kind = value
                OnPropertyChanged("Kind")
            End Set
        End Property
        
        Private _Title As String
        Public Property Title() As String
            Get
                Return _Title
            End Get
            Set(ByVal value As String)
                _Title = value
            End Set
        End Property
        

        Public Property Text() As String
            Get
                Return Model.Text
            End Get
            Set(ByVal value As String)
                Model.Text = value
                OnPropertyChanged("Text")
            End Set
        End Property

        Public Property Mail() As String
            Get
                Return Model.Mail
            End Get
            Set(ByVal value As String)
                Model.Mail = value
                OnPropertyChanged("Mail")
            End Set
        End Property

        Private _Description As String
        Public Property Description() As String
            Get
                Return _Description
            End Get
            Set(ByVal value As String)
                _Description = value
                OnPropertyChanged("Description")
            End Set
        End Property

    End Class

End Namespace
